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— file: FSPDefs.Mesa; edited by Sandman on August 23, 1977 9:26 PM 

DIRECTORY 

AUoDefs: FROM "altodefs"; 

DEFINITIONS FROM AUoDefs; 

FSPDefs: DEFINITIONS =« 
BEGIN 

-- types and formats of zone headers and nodes 

BlockSize: TYPE = INTEGER [0 . . 77777B--VMLimit/2--] ; 

NodePointer: TYPE = POINTER TO NodeHeader; 

FreeNodePointer: TYPE = POINTER TO free NodeHeader; 

NodeHeader: TYPE = PRIVATE RECORD[ 
length: BlockSize, 
extension: SELECT state: * FROM 
inuse => 

NULL, 
free => [ 

fwdp, backp: FreeNodePointer], 
ENDCASE]; 

Deallocator: TYPE = PROCEDURE [POINTER]; 

ZonePointer: TYPE = POINTER TO ZoneHeader; 

ZoneHeader: TYPE = PRIVATE RECORD[ 
node: free NodeHeader, 
rover: FreeNodePointer, 

-- roving pointer to slow down fragmentation 

-- (see Knuth, Vol I, p. 597 ^^6) 
restofzone: ZonePointer, -- link to additional segments of zone 
length: BlockSize, 
deallocate: Deallocator, 
threshold: PUBLIC BlockSize, 
checking: PUBLIC BOOLEAN]; 

ZoneOverhead: INTEGER = SIZE[ZoneHeader]+SIZE[inuse NodeHeader]; 

-- public procedures and signals 

MakeNewZone: PROCEDURE [base: POINTER, length: BlockSize, deallocate: Deallocator] 

RETURNS [z: ZonePointer]; 
MakeZone: PROCEDURE [base: POINTER, length: BlockSize] RETURNS [z: ZonePointer]; 
AddToNewZone: PROCEDURE 

[z: ZonePointer, base: POINTER, length: BlockSize, deallocate: Deallocator]; 
AddToZone: PROCEDURE [z: ZonePointer, base: POINTER, length: BlockSize]; 
PruneZone: PROCEDURE [z: ZonePointer] RETURNS [BOOLEAN]; 
DestroyZone: PROCEDURE [z: ZonePointer]; 
Do NothingDeal locate: Deal locator; 

NoRoomlnZone: SIGNAL [z: ZonePointer]; -- not enough space to fill a request 

MakeNode: PROCEDURE [z: ZonePointer, n: BlockSize] RETURNS [POINTER]; 
FreeNode: PROCEDURE [z: ZonePointer, p: POINTER]; 
SplitNode: PROCEDURE [z: ZonePointer, p: POINTER, n: BlockSize]; 
NodeSize: PROCEDURE [p: POINTER] RETURNS [BlockSize]; 

ZoneTooSmall : ERROR [POINTER]; 

TnvalidZone: ERROR [POINTER]; -- zone header looks fishy 

NodeLoop: ERROR [ZonePointer]; 

Inval idNode: ERROR [POINTER]; -- node appears damaged 

END. 
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-- ImageDefs.mesa Modified by: Sandman, August 29, 1977 22:47 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldef s" , 
Mopcodes: FROM "mopcodes", 
NovaOps: FROM "novaops", 
SegmentDefs: FROM "segmentdefs" , 
StringDefs: FROM "s tringdef s" ; 

ImageDefs: DEFINITIONS = 
PRIVATE BEGIN 

Mapltem: TYPE = MACHINE DEPENDENT RECORD [page, count: [0..255]]; 
MapIndexType: TYPE - 

[0. . AUoDef s. Pages ize-5-SIZE[ControlDefs.StateVec tor ]-2*5IZE [BcdDefs. Versions tamp]); 
FirstlmageDataPage: AT toDefs . PageNumber = 2; 
HeaderPages: CARDINAL = 1; 

VersionID: CARDINAL = 08277; -- must match in Mesa.bcpl 

ImageHeader: TYPE = MACHINE DEPENDENT RECORD [ 
versionident : CARDINAL, 
version, creator: BcdDefs .VersionStamp , 
options: WORD, 
av, gft, sd: POINTER, 
state: ControlDefs .StateVector , 
map: ARRAY MapIndexType OF Mapltem]; 

FileRequest: PUBLIC TYPE = MACHINE DEPENDENT RECORD[ 
link: POINTER TO FileRequest, 
file: SegmentDefs . FileHandle, 
access : SegmentDefs . AccessOptions , 
body: SELECT tag:* FROM 

short => [fill: [0..7777B], name: STRING], 

long => [fill: [0..7777B], name: Str i ngDef s . SubStr ingDescr iptor] , 

ENDCASE]; 

AddFileRequest: PUBLIC MACHINE CODE [POINTER TO FileRequest] = 

INLINE [Mopcodes. zKfCB. ControlDefs . sAddF i 1 eRequest] ; 
Makelmage: PUBLIC PROCEDURE [name: STRING, symbol sToImage : BOOLEAN]; 
MakeUnMergedlmage: PUBLIC PROCEDURE [name: STRING, symbol sToImage : BOOLEAN]; 
SwapOutDuringMakelmage: PUBLIC SIGNAL; 
SwapTrapDuringMakelmage: PUBLIC SIGNAL; 
SwapErrorDuringMakelmage: PUBLIC SIGNAL; 

ImageVers ion: PUBLIC PROCEDURE RETURNS [BcdDefs .Vers ionStamp] ; 

Cleanupltem: PUBLIC TYPE = RECORD [ 
link: POINTER TO Cleanupltem, 
proc: CleanupProcedure] ; 

CleanupProcedure: PUBLIC TYPE = PROCEDURE [why: CI eanupReason] ; 

CleanupReason: PUBLIC TYPE = NovaOps .CI eanupReason ; 
NovaOpcode: TYPE = NovaOps . NovaOpcode; 

AddCleanupProcedure, Removed eanupProcedure : PUBLIC PROCEDURE [POINTER TO Cleanupltem]; 
UserCleanupProc: PUBLIC CleanupProcedure; 

StopMesa: PUBLIC MACfllNE CODE = 

INI INF [Mop codes. 7 1 Tn+I OOPHOl r[NovaOpcode[F in i sh] . CARDINAL], Mopcodes . zSTOP] ; 
AborlMesa: PUBLIC MACHINE CODE = 

TNI I NT [Mop codes ./I In+I OOPHOl E[NovaOpcode[Abor t] , CARDINAIJ. Mopcodes . /STOP] ; 
PuntMesa: PUBI IC MACHINE CODE = 

INI INr[Mopcodes./l In+LOOPHOl r[NovaOpcode[Pun t] , CARDINAL], Mopcodes . /STOP] ; 

END. . 



